home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Site Building / 2Bitmap / data1.cab / Shared_Dll / IAPSHOP1.PS < prev    next >
Encoding:
Text File  |  2000-05-22  |  1.4 KB  |  48 lines
  1. gsave
  2. /hascolor
  3. /deviceinfo where
  4. {pop deviceinfo /Colors known
  5. {deviceinfo /Colors get exec 1 gt}
  6. {false} ifelse}
  7. {/statusdict where
  8. {pop statusdict /processcolors known
  9. {statusdict /processcolors get exec 1 gt}
  10. {false} ifelse}
  11. {false} ifelse}
  12. ifelse
  13. def
  14. 40 dict begin
  15. /_image systemdict /image get def
  16. /_setgray systemdict /setgray get def
  17. /_currentgray systemdict /currentgray get def
  18. /_settransfer systemdict /settransfer get def
  19. /_currenttransfer systemdict /currenttransfer get def
  20. /blank 0 _currenttransfer exec
  21. 1 _currenttransfer exec eq def
  22. /negative blank
  23. {0 _currenttransfer exec 0.5 lt}
  24. {0 _currenttransfer exec 1 _currenttransfer exec gt}
  25. ifelse def
  26. /inverted? negative def
  27. /level2 systemdict /languagelevel known
  28. {languagelevel 2 ge} {false} ifelse def
  29. /foureq {4 index eq 8 1 roll
  30. 4 index eq 8 1 roll
  31. 4 index eq 8 1 roll
  32. 4 index eq 8 1 roll
  33. pop pop pop pop and and and} def
  34. hascolor {/band 0 def} {/band 5 def} ifelse
  35. /setcmykcolor where {pop
  36. 1 0 0 0 setcmykcolor _currentgray 1 exch sub
  37. 0 1 0 0 setcmykcolor _currentgray 1 exch sub
  38. 0 0 1 0 setcmykcolor _currentgray 1 exch sub
  39. 0 0 0 1 setcmykcolor _currentgray 1 exch sub
  40. 4 {4 copy} repeat
  41. 1 0 0 0 foureq {/band 1 store} if
  42. 0 1 0 0 foureq {/band 2 store} if
  43. 0 0 1 0 foureq {/band 3 store} if
  44. 0 0 0 1 foureq {/band 4 store} if
  45. 0 0 0 0 foureq {/band 6 store} if} if
  46. blank {/band 6 store} if
  47. gsave
  48.